home *** CD-ROM | disk | FTP | other *** search
/ Champak 141 / (Vol 141) Oct 17 2011.iso / Games / guitar-geek.swf / scripts / irrcrpt.as < prev    next >
Encoding:
Text File  |  2011-10-17  |  944 b   |  42 lines
  1. package
  2. {
  3.    public function irrcrpt(s:String, o:int) : String
  4.    {
  5.       var c:int = 0;
  6.       var d:String = new String();
  7.       for(var i:int = 0; i < s.length; i++)
  8.       {
  9.          c = s.charCodeAt(i);
  10.          if(c >= 48 && c <= 57)
  11.          {
  12.             c = c - o - 48;
  13.             if(c < 0)
  14.             {
  15.                c += 57 - 48 + 1;
  16.             }
  17.             c = c % (57 - 48 + 1) + 48;
  18.          }
  19.          else if(c >= 65 && c <= 90)
  20.          {
  21.             c = c - o - 65;
  22.             if(c < 0)
  23.             {
  24.                c += 90 - 65 + 1;
  25.             }
  26.             c = c % (90 - 65 + 1) + 65;
  27.          }
  28.          else if(c >= 97 && c <= 122)
  29.          {
  30.             c = c - o - 97;
  31.             if(c < 0)
  32.             {
  33.                c += 122 - 97 + 1;
  34.             }
  35.             c = c % (122 - 97 + 1) + 97;
  36.          }
  37.          d += String.fromCharCode(c);
  38.       }
  39.       return d;
  40.    }
  41. }
  42.